'================================================================== '== == '== Comm Toolbox Interface Written by Chris Stasny == '== D.O.B.: April 24, 1993 Staz™ Software, Inc. == '== == '================================================================== END GLOBALS COMPILE 0,_MacsbugLabels_strResource_caseInsensitive'set by PG:PRO INCLUDE FILE _aplIncl GOTO "CTB End" '•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••• '•••••• CONNECTION MANAGER •••••••• '•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••• '-------------------------------------------------|---------------- LOCAL FN InitCTBUtilities '-----------------------------------------------|---------------- selector = _InitCTBUtilities ` LEA ^selector,A0 ` DC.W CommToolboxDispatch ` EXT.L D0 END FN '-------------------------------------------------|---------------- LOCAL FN CTBGetCTBVersion '-----------------------------------------------|---------------- selector = _CTBGetCTBVersion ` LEA ^selector,A0 ` DC.W CommToolboxDispatch ` EXT.L D0 END FN '-------------------------------------------------|---------------- 'Page 36 InitCM : CMErr; 'FB CMErr = FN InitCM '-------------------------------------------------|---------------- LOCAL FN InitCM selector = _initCM ` LEA ^selector,A0 ` DC.W CommToolboxDispatch ` EXT.L D0 END FN '-------------------------------------------------|---------------- 'Page 65 CMGetCMVersion: INTEGER ; 'FB version = FN CMGetCMVersion '-------------------------------------------------|---------------- LOCAL FN CMGetCMVersion selector = _CMGetCMVersion ` LEA ^selector,A0 ` DC.W CommToolboxDispatch ` EXT.L D0 END FN '-------------------------------------------------|---------------- 'Page 37 CMGetProcID (name: Str255) : Integer; 'FB ProcID = FN CMGetProcID(ToolFileName$) '-------------------------------------------------|---------------- LOCAL: DIM selector LOCAL FN CMGetProcID(@ptr&) selector = _CMGetProcID ` LEA ^selector,A0 ` DC.W CommToolboxDispatch ` EXT.L D0 END FN '-------------------------------------------------|---------------- 'Page 64 CMGetToolName (procID: INTEGER;VAR name: Str255); 'FB FN CMGetToolName(procID,ToolFileName$) '-------------------------------------------------|---------------- LOCAL: DIM selector,ptr&,procID LOCAL FN CMGetToolName(procID,@ptr&) selector = _CMGetToolName ` LEA ^selector,A0 ` DC.W CommToolboxDispatch END FN '-------------------------------------------------|---------------- 'Page 38 CMNew (procID: INTEGER; flags: CMRecFlags; desiredSizes: ' CMBufferSizes; refCon: LONGINT; userData : LONGINT) ' : ConnHandle; 'FB hConn& = FN CMNew(procID,flags&,buffers&,refCon&,myData&) '-------------------------------------------------|---------------- LOCAL: DIM selector,userData&,refCon&,buffers&,flags&,procID LOCAL FN CMNew(procID,flags&,@buffers&,refCon&,userData&) selector = _CMNew ` LEA ^selector,A0 ` DC.W CommToolboxDispatch END FN '-------------------------------------------------|---------------- 'Page 47 CMGetConfig (hConn: ConnHandle): Ptr; 'FB ptr& = FN CMGetConfig(hConn&) '-------------------------------------------------|---------------- LOCAL: DIM selector LOCAL FN CMGetConfig(hConn&) selector = _CMGetConfig ` LEA ^selector,A0 ` DC.W CommToolboxDispatch END FN '-------------------------------------------------|---------------- 'Page 54 CMGetConnEnvirons (hConn : ConnHandle; ' VAR theEnvirons : ConEnvironRec): CMErr; 'FB CMErr = FN CMGetConnEnvirons(hConn&,environRec) '-------------------------------------------------|---------------- LOCAL: DIM selector,environRec&,hConn& LOCAL FN CMGetConnEnvirons(hConn&,@environRec&) selector = _CMGetConnEnvirons ` LEA ^selector,A0 ` DC.W CommToolboxDispatch ` EXT.L D0 END FN '-------------------------------------------------|---------------- 'Page 50 CMDispose (hConn: ConnHandle); 'FB FN CMDispose(hConn&) '-------------------------------------------------|---------------- LOCAL:DIM selector LOCAL FN CMDispose(hConn&) selector = _CMDispose ` LEA ^selector,A0 ` DC.W CommToolboxDispatch END FN '-------------------------------------------------|---------------- 'Page 53 CMBreak (hConn: ConnHandle; duration: LONGINT; ' async: BOOLEAN; completor: ProcPtr); 'FB FN CMBreak(hConn&,duration&,async,completor&) '-------------------------------------------------|---------------- LOCAL: DIM selector,completor&,async,duration&,hConn& LOCAL FN CMBreak(hConn&,duration&,async,completor&) selector = _CMBreak ` LEA ^selector,A0 ` DC.W CommToolboxDispatch END FN '-------------------------------------------------|---------------- 'Page 41 CMChoose(VAR hConn:ConnHandle; where: Point; ' idleProc: procPtr):INTEGER; 'FB rslt = FN CMChoose(hConn&,thePoint&,procPtr&) '-------------------------------------------------|---------------- LOCAL: DIM selector,procPtr&,pointX,pointY,hConn& LOCAL FN CMChoose(@hConn&,@thePoint&,procPtr&) ` MOVE.L ^thePoint&,A0 ` MOVE.W (A0)+,^pointX ` MOVE.W (A0),^pointY selector = _CMChoose ` LEA ^selector,A0 ` DC.W CommToolboxDispatch ` EXT.L D0 END FN '-------------------------------------------------|---------------- 'Page 49 CMAbort (hConn: ConnHandle) : CMErr; 'FB CMErr = FN CMAbort(hConn&) '-------------------------------------------------|---------------- LOCAL: DIM selector LOCAL FN CMAbort(hConn&) selector = _CMAbort ` LEA ^selector,A0 ` DC.W CommToolboxDispatch ` EXT.L D0 END FN '•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••• '•••••• Routines after this point haven't been tested, but •••••••• '•••••• should work without any trouble •••••••• '•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••• '-------------------------------------------------|---------------- 'Page 52 CMAccept (hConn: ConnHandle; accept: BOOLEAN) : CMErr; 'FB CMErr = FN CMAccept(hConn&,bool) '-------------------------------------------------|---------------- LOCAL: DIM selector,bool,hConn& LOCAL FN CMAccept(hConn&,bool) selector = _CMAccept ` LEA ^selector,A0 ` DC.W CommToolboxDispatch ` EXT.L D0 END FN '-------------------------------------------------|---------------- 'Page 61 CMActivate (hConn: ConnHandle; activate: BOOLEAN); 'FB FN CMActivate(hConn&,bool) '-------------------------------------------------|---------------- LOCAL: DIM selector,bool,hConn& LOCAL FN CMActivate(hConn&,bool) selector = _CMActivate ` LEA ^selector,A0 ` DC.W CommToolboxDispatch END FN '-------------------------------------------------|---------------- 'Page 59 CMAddSearch (hConn: ConnHandle; theString: Str255; ' flags: CMSearchFlags; callBack: ProcPtr): LONGINT; 'FB searchRefNum& = FN CMAddSearch(hConn&,searchTxt$, ' flags%,callBackProc&) '-------------------------------------------------|---------------- LOCAL: DIM selector,callBackProc&,flags,txtPtr&,hConn& LOCAL FN CMAddSearch(hConn&,@txtPtr&,flags,callBackProc&) selector = _CMAddSearch ` LEA ^selector,A0 ` DC.W CommToolboxDispatch END FN '-------------------------------------------------|---------------- 'Page 40 CMDefault(VAR theConfig: Ptr; procID: INTEGER; ' allocate: BOOLEAN); 'FB FN CMDefault(config,procID,allocate) '-------------------------------------------------|---------------- LOCAL: DIM selector,allocate,procID,configPtr& LOCAL FN CMDefault(@configPtr&,procID,allocate) selector = _CMDefault ` LEA ^selector,A0 ` DC.W CommToolboxDispatch END FN '-------------------------------------------------|---------------- 'Page 40 CMValidate(hConn: ConnHandle) : BOOLEAN; 'FB bool = FN CMValidate(hConn&) '-------------------------------------------------|---------------- LOCAL: DIM selector,hConn& LOCAL FN CMValidate(hConn&) selector = _CMValidate ` LEA ^selector,A0 ` DC.W CommToolboxDispatch ` EXT.L D0 END FN '-------------------------------------------------|---------------- 'Page 60 CMClearSearch (hConn: ConnHandle); 'FB FN CMClearSearch(hConn&) '-------------------------------------------------|---------------- LOCAL: DIM selector LOCAL FN CMClearSearch(hConn&) selector = _CMClearSearch ` LEA ^selector,A0 ` DC.W CommToolboxDispatch END FN '-------------------------------------------------|---------------- 'Page 49 CMClose (hConn: ConnHandle; async : BOOLEAN; ' completor : ProcPtr; timeout : LONGINT; ' now : BOOLEAN): CMErr; 'FB CMErr = FN CMClose(hConn&,async,completor&,timeOut&,now) '-------------------------------------------------|---------------- LOCAL: DIM selector,now,timeOut&,completor&,async,hConn& LOCAL FN CMClose(hConn&,async,completor&,timeOut&,now) selector = _CMClose ` LEA ^selector,A0 ` DC.W CommToolboxDispatch ` EXT.L D0 END FN '-------------------------------------------------|---------------- 'Page 63 CMEnglishToIntl (hConn: ConnHandle; inputPtr : Ptr; ' VAR outputPtr: Ptr; language: INTEGER): OSErr; 'FB OSErr = FN CMEnglishToIntl(hConn&,English$, ' foreign$,language) '-------------------------------------------------|---------------- LOCAL: DIM selector,language,outputPtr&,inputPtr&,hConn& LOCAL FN CMEnglishToIntl(hConn&,@inputPtr&,@outputPtr&,language) selector = _CMEnglishToIntl ` LEA ^selector,A0 ` DC.W CommToolboxDispatch ` EXT.L D0 END FN '-------------------------------------------------|---------------- 'Page 63 CMIntlToEnglish (hConn: ConnHandle; inputPtr : Ptr; ' VAR outputPtr: Ptr; language: INTEGER): OSErr; 'FB OSErr = FN CMIntlToEnglish(hConn&,foreign$, ' English$,language) '-------------------------------------------------|---------------- LOCAL: DIM selector,language,outputPtr&,inputPtr&,hConn& LOCAL FN CMIntlToEnglish(hConn&,@inputPtr&,@outputPtr&,language) selector = _CMIntlToEnglish ` LEA ^selector,A0 ` DC.W CommToolboxDispatch ` EXT.L D0 END FN '-------------------------------------------------|---------------- 'Page 62 CMEvent (hConn: ConnHandle; theEvent : EventRecord); 'FB FN CMEvent(hConn&,gWhat) '-------------------------------------------------|---------------- LOCAL: DIM selector,eventRec&,hConn& LOCAL FN CMEvent(hConn&,@eventRec&) selector = _CMEvent ` LEA ^selector,A0 ` DC.W CommToolboxDispatch END FN '-------------------------------------------------|---------------- 'Page 64 CMGetRefCon (hConn: ConnHandle): LONGINT; 'FB refCon& = FN CMGetRefCon(hConn&) '-------------------------------------------------|---------------- LOCAL:DIM selector LOCAL FN CMGetRefCon(hConn&) selector = _CMGetRefCon ` LEA ^selector,A0 ` DC.W CommToolboxDispatch END FN '-------------------------------------------------|---------------- 'Page 65 CMGetUserData (hConn: ConnHandle): LONGINT; 'FB UserData& = FN CMGetUserData(hConn&) '-------------------------------------------------|---------------- LOCAL:DIM selector LOCAL FN CMGetUserData(hConn&) selector = _CMGetUserData ` LEA ^selector,A0 ` DC.W CommToolboxDispatch END FN '-------------------------------------------------|---------------- 'Page 65 CMGetVersion (hConn: ConnHandle): Handle; 'FB vHndl& = FN CMGetVersion(hConn&) '-------------------------------------------------|---------------- LOCAL:DIM selector LOCAL FN CMGetVersion(hConn&) selector = _CMGetVersion ` LEA ^selector,A0 ` DC.W CommToolboxDispatch END FN '-------------------------------------------------|---------------- 'Page 50 CMIdle (hConn: ConnHandle); 'FB FN CMIdle(hConn&) '-------------------------------------------------|---------------- LOCAL:DIM selector LOCAL FN CMIdle(hConn&) selector = _CMIdle ` LEA ^selector,A0 ` DC.W CommToolboxDispatch END FN '-------------------------------------------------|---------------- 'Page 52 CMIOKill (hConn: ConnHandle; which: INTEGER): CMErr; 'FB CMErr = FN CMIOKill(hConn&,which) '-------------------------------------------------|---------------- LOCAL: DIM selector,which,hConn& LOCAL FN CMIOKill(hConn&,which) selector = _CMIOKill ` LEA ^selector,A0 ` DC.W CommToolboxDispatch ` EXT.L D0 END FN '-------------------------------------------------|---------------- 'Page 50 CMListen (hConn: ConnHandle; async: BOOLEAN ' completor: ProcPtr; timeout: LONGINT): CMErr; 'FB CMErr = FN CMListen(hConn&,async,completor&,timeOut&) '-------------------------------------------------|---------------- LOCAL: DIM selector,timeOut&,completor&,async,hConn& LOCAL FN CMListen(hConn&,async,completor&,timeOut&) selector = _CMListen ` LEA ^selector,A0 ` DC.W CommToolboxDispatch ` EXT.L D0 END FN '-------------------------------------------------|---------------- 'Page 61 CMMenu (hConn: ConnHandle; menuID: INTEGER; ' item:INTEGER): BOOLEAN; 'FB bool = FN CMMenu(hConn&,menuID,itemID) '-------------------------------------------------|---------------- LOCAL: DIM selector,itemID,menuID,hConn& LOCAL FN CMMenu(hConn&,menuID,itemID) selector = _CMMenu ` LEA ^selector,A0 ` DC.W CommToolboxDispatch ` EXT.L D0 END FN '-------------------------------------------------|---------------- 'Page 48 CMOpen (hConn: ConnHandle; async: BOOLEAN ' completor: ProcPtr; timeout: LONGINT): CMErr; 'FB CMErr = FN CMOpen(hConn&,async,completor&,timeOut&) '-------------------------------------------------|---------------- LOCAL: DIM selector,timeOut&,completor&,async,hConn& LOCAL FN CMOpen(hConn&,async,completor&,timeOut&) selector = _CMOpen ` LEA ^selector,A0 ` DC.W CommToolboxDispatch ` EXT.L D0 END FN '-------------------------------------------------|---------------- 'Page 56 CMRead (hConn: ConnHandle; theBuffer: Ptr; ' VAR toRead: LONGINT; theChannel: CMChannel; ' async: BOOLEAN; completor: ProcPtr; ' timeout: LONGINT; VAR flags: CMFlags): CMErr; 'FB CMErr = FN CMRead(hConn&,buffer&,toRead&,theChannel&, ' async,completor&,timeOut&,flags&) '-------------------------------------------------|---------------- LOCAL: DIM selector,flags&,timeOut&,completor&,async,theChannel& DIM toRead&,buffer&,hConn& LOCAL FN CMRead(hConn&,buffer&,@toRead&,theChannel&,async,completor&,timeout&,@flags&) selector = _CMRead ` LEA ^selector,A0 ` DC.W CommToolboxDispatch ` EXT.L D0 END FN '-------------------------------------------------|---------------- 'Page 60 CMRemoveSearch (hConn: ConnHandle; refNum : LONGINT); 'FB FN CMRemoveSearch(hConn&,refNum&) '-------------------------------------------------|---------------- LOCAL: DIM selector,refNum&,hConn& LOCAL FN CMRemoveSearch(hConn&,refNum&) selector = _CMRemoveSearch ` LEA ^selector,A0 ` DC.W CommToolboxDispatch END FN '-------------------------------------------------|---------------- 'Page 50 CMReset (hConn: ConnHandle); 'FB FN CMReset(hConn&) '-------------------------------------------------|---------------- LOCAL: DIM selector LOCAL FN CMReset(hConn&) selector = _CMReset ` LEA ^selector,A0 ` DC.W CommToolboxDispatch END FN '-------------------------------------------------|---------------- 'Page 61 CMResume (hConn: ConnHandle; resume : BOOLEAN); 'FB FN CMResume(hConn&,resumeBool) '-------------------------------------------------|---------------- LOCAL: DIM selector,resumeBool,hConn& LOCAL FN CMResume(hConn&,resumeBool) selector = _CMResume ` LEA ^selector,A0 ` DC.W CommToolboxDispatch END FN '-------------------------------------------------|---------------- 'Page 47 CMSetConfig (hConn: ConnHandle; thePtr : Ptr): INTEGER; 'FB theErr = FN CMSetConfig(hConn&,thePtr&) ' thePtr& points to a null terminated C string. ' t$ = "Baud 9600 dataBits 8 Parity None" + CHR$(0) ' thePtr& = @t$ + 1 '-------------------------------------------------|---------------- LOCAL: DIM selector,thePtr&,hConn& LOCAL FN CMSetConfig(hConn&,thePtr&) selector = _CMSetConfig ` LEA ^selector,A0 ` DC.W CommToolboxDispatch ` EXT.L D0 END FN '-------------------------------------------------|---------------- 'Page 64 CMSetRefCon (hConn: ConnHandle; refCon : LONGINT); 'FB FN CMSetRefCon(hConn&,refCon&) '-------------------------------------------------|---------------- LOCAL: DIM selector,refCon&,hConn& LOCAL FN CMSetRefCon(hConn&,refCon&) selector = _CMSetRefCon ` LEA ^selector,A0 ` DC.W CommToolboxDispatch END FN '-------------------------------------------------|---------------- 'Page 45 CMSetupCleanup (procID: INTEGER; theConfig: Ptr; ' count: INTEGER; theDialog: DialogPtr&; ' VAR magicCookie: LONGINT); 'FB FN CMSetupCleanup(procID,theConfig&,count,theDialog&,magicCookie&) '-------------------------------------------------|---------------- LOCAL: DIM selector,magicCookie&,theDialog&,count,theConfig&,procID DIM toRead&,buffer&,hConn& LOCAL FN CMSetupCleanup(procID,theConfig&,count,theDialog&,@magicCookie&) selector = _CMSetupCleanup ` LEA ^selector,A0 ` DC.W CommToolboxDispatch END FN '-------------------------------------------------|---------------- 'Page 44 CMSetupfilter (procID: INTEGER; theConfig: Ptr; ' count: INTEGER; theDialog: DialogPtr&; ' VAR theEvent: EventRecord; VAR theItem: INTEGER ' VAR magicCookie: LONGINT): BOOLEAN; 'FB Bool = FN CMSetupFilter(procID,theConfig&,count,theDialog&, ' EventRecord&,theItem,magicCookie&) '-------------------------------------------------|---------------- LOCAL: DIM selector,magicCookie&,theItem&,EventRecord& DIM theDialog&,count,theConfig&,procID LOCAL FN CMSetupFilter(procID,theConfig&,count,theDialog&,EventRecord&,@theItem&,@magicCookie&) selector = _CMSetupfilter ` LEA ^selector,A0 ` DC.W CommToolboxDispatch ` EXT.L D0 END FN '-------------------------------------------------|---------------- 'Page 45 CMSetupItem (procID: INTEGER; theConfig: Ptr; ' count: INTEGER; theDialog: DialogPtr&; ' VAR theItem: INTEGER; ' VAR magicCookie: LONGINT); 'FB FN CMSetupItem(procID,theConfig&,count,theDialog&, ' theItem,magicCookie&) '-------------------------------------------------|---------------- LOCAL: DIM selector,magicCookie&,theItem& DIM theDialog&,count,theConfig&,procID LOCAL FN CMSetupItem(procID,theConfig&,count,theDialog&,@theItem&,@magicCookie&) selector = _CMSetupItem ` LEA ^selector,A0 ` DC.W CommToolboxDispatch END FN '-------------------------------------------------|---------------- 'Page 46 CMSetupPostflight (procID: INTEGER); 'FB FN CMSetupPostflight(procID) '-------------------------------------------------|---------------- LOCAL: DIM selector LOCAL FN CMSetupPostflight(procID) selector = _CMSetupPostflight ` LEA ^selector,A0 ` DC.W CommToolboxDispatch END FN '-------------------------------------------------|---------------- 'Page 43 CMSetupPreflight (procID: INTEGER; VAR magicCookie): Handle; 'FB hndl& = FN CMSetupPreflight(procID,magicCookie&) '-------------------------------------------------|---------------- LOCAL: DIM selector,magicCookie&,procID LOCAL FN CMSetupPreflight(procID,@magicCookie&) selector = _CMSetupPreflight ` LEA ^selector,A0 ` DC.W CommToolboxDispatch END FN '-------------------------------------------------|---------------- 'Page 44 CMSetupSetup (procID: INTEGER; theConfig: Ptr; ' count: INTEGER; theDialog: DialogPtr&; ' VAR magicCookie: LONGINT); 'FB FN CMSetupSetup(procID,theConfig&,count,theDialog&, ' magicCookie&) '-------------------------------------------------|---------------- LOCAL: DIM selector,magicCookie& DIM theDialog&,count,theConfig&,procID LOCAL FN CMSetupSetup(procID,theConfig&,count,theDialog&,@magicCookie&) selector = _CMSetupSetup ` LEA ^selector,A0 ` DC.W CommToolboxDispatch END FN '-------------------------------------------------|---------------- 'Page 65 CMSetUserData (hConn: ConnHandle; userData : LONGINT); 'FB FN CMSetUserData(hConn&,userData&) '-------------------------------------------------|---------------- LOCAL: DIM selector,userData&,hConn& LOCAL FN CMSetUserData(hConn&,userData&) selector = _CMSetUserData ` LEA ^selector,A0 ` DC.W CommToolboxDispatch END FN '-------------------------------------------------|---------------- 'Page 51 CMStatus (hConn: ConnHandle; VAR sizes: CMBufferSizes; ' VAR flags: CMStatFlags): CMErr; 'FB CMErr = FN CMStatus(hConn&,buffer&,flags&) '-------------------------------------------------|---------------- LOCAL: DIM selector,flags&,buffer&,hConn& LOCAL FN CMStatus(hConn&,@buffer&,@flags&) selector = _CMStatus ` LEA ^selector,A0 ` DC.W CommToolboxDispatch ` EXT.L D0 END FN '-------------------------------------------------|---------------- 'Page 58 CMWrite (hConn: ConnHandle; theBuffer: Ptr; ' VAR toRead: LONGINT; theChannel: CMChannel; ' async: BOOLEAN; completor: ProcPtr; ' timeout: LONGINT; flags: CMFlags): CMErr; 'FB CMErr = FN CMWrite(hConn&,buffer&,toRead&,theChannel&, ' async,completor&,timeOut&,flags&) '-------------------------------------------------|---------------- LOCAL: DIM selector,flags&,timeOut&,completor&,async,theChannel& DIM toRead&,buffer&,hConn& LOCAL FN CMWrite(hConn&,buffer&,@toRead&,theChannel&,async,completor&,timeout&,flags&) selector = _CMWrite ` LEA ^selector,A0 ` DC.W CommToolboxDispatch ` EXT.L D0 END FN '•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••• '•••••• FILE TRANSFER MANAGER •••••••• '•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••• '-------------------------------------------------|---------------- 'Page 150 FTAbort(hFT: FTHandle) : FTErr; 'FB FTErr = FN FTAbort(FTHndl&) '-------------------------------------------------|---------------- LOCAL:DIM selector LOCAL FN FTAbort(FTHndl&) selector = _FTAbort ` LEA ^selector,A0 ` DC.W CommToolboxDispatch ` EXT.L D0 END FN '-------------------------------------------------|---------------- 'Page 138 InitFT : FTErr; 'FB FTErr = FN InitFT '-------------------------------------------------|---------------- LOCAL FN InitFT selector = _InitFT ` LEA ^selector,A0 ` DC.W CommToolboxDispatch ` EXT.L D0 END FN '-------------------------------------------------|---------------- 'Page 151 FTActivate(hFT: FTHandle; activate : BOOLEAN) 'FB FN FTActivate(FTHndl&,bool) '-------------------------------------------------|---------------- LOCAL:DIM selector,bool,FTHndl& LOCAL FN FTActivate(FTHndl&,bool) selector = _FTActivate ` LEA ^selector,A0 ` DC.W CommToolboxDispatch END FN '-------------------------------------------------|---------------- 'Page 142 FTChoose(VAR hFT: FTHandle; where: Point; ' idleProc: procPtr):INTEGER; 'FB rslt = FN FTChoose(FTHndl&,thePoint&,procPtr&) '-------------------------------------------------|---------------- LOCAL: DIM selector,procPtr&,pointX,pointY,FTHndl& LOCAL FN FTChoose(@FTHndl&,@thePoint&,procPtr&) ` MOVE.L ^thePoint&,A0 ` MOVE.W (A0)+,^pointX ` MOVE.W (A0),^pointY selector = _FTChoose ` LEA ^selector,A0 ` DC.W CommToolboxDispatch ` EXT.L D0 END FN '-------------------------------------------------|---------------- 'Page 141 FTDefault(VAR theConfig: Ptr; procID: INTEGER; ' allocate: BOOLEAN); 'FB FN FTDefault(config,procID,allocate) '-------------------------------------------------|---------------- LOCAL: DIM selector,allocate,procID,configPtr& LOCAL FN FTDefault(@configPtr&,procID,allocate) selector = _FTDefault ` LEA ^selector,A0 ` DC.W CommToolboxDispatch END FN '-------------------------------------------------|---------------- 'Page 150 FTDispose (hFT: FTHandle); 'FB FN FTDispose(FTHndl&) '-------------------------------------------------|---------------- LOCAL:DIM selector LOCAL FN FTDispose(FTHndl&) selector = _FTDispose ` LEA ^selector,A0 ` DC.W CommToolboxDispatch END FN '-------------------------------------------------|---------------- 'Page 153 FTEnglishToIntl (hFT: FTHandle; inputPtr : Ptr; ' VAR outputPtr: Ptr; language: INTEGER): OSErr; 'FB OSErr = FN FTEnglishToIntl(FTHndl&,English$, ' foreign$,language) '-------------------------------------------------|---------------- LOCAL: DIM selector,language,outputPtr&,inputPtr&,FTHndl& LOCAL FN FTEnglishToIntl(FTHndl&,@inputPtr&,@outputPtr&,language) selector = _FTEnglishToIntl ` LEA ^selector,A0 ` DC.W CommToolboxDispatch ` EXT.L D0 END FN '-------------------------------------------------|---------------- 'Page 152 FTEvent (hFT: FTHandle; theEvent : EventRecord); 'FB FN FTEvent(FTHndl&,gWhat) '-------------------------------------------------|---------------- LOCAL: DIM selector,eventRec&,FTHndl& LOCAL FN FTEvent(FTHndl&,@eventRec&) selector = _FTEvent ` LEA ^selector,A0 ` DC.W CommToolboxDispatch END FN '-------------------------------------------------|---------------- 'Page 150 FTExec(hFT: FTHandle); 'FB FN FTExec(FTHndl&) '-------------------------------------------------|---------------- LOCAL:DIM selector LOCAL FN FTExec(FTHndl&) selector = _FTExec ` LEA ^selector,A0 ` DC.W CommToolboxDispatch END FN '-------------------------------------------------|---------------- 'Page 148 FTGetConfig (hFT: FTHandle): Ptr; 'FB ptr& = FN FTGetConfig(FTHndl&) '-------------------------------------------------|---------------- LOCAL: DIM selector LOCAL FN FTGetConfig(FTHndl&) selector = _FTGetConfig ` LEA ^selector,A0 ` DC.W CommToolboxDispatch END FN '-------------------------------------------------|---------------- 'Page 155 FTGetFTVersion: INTEGER ; 'FB version = FN FTGetFTVersion '-------------------------------------------------|---------------- LOCAL FN FTGetFTVersion selector = _FTGetFTVersion ` LEA ^selector,A0 ` DC.W CommToolboxDispatch ` EXT.L D0 END FN '-------------------------------------------------|---------------- 'Page 154 FTGetToolName (procID: INTEGER;VAR name: Str255); 'FB FN FTGetToolName(procID,ToolFileName$) '-------------------------------------------------|---------------- LOCAL: DIM selector,ptr&,procID LOCAL FN FTGetToolName(procID,@ptr&) selector = _FTGetToolName ` LEA ^selector,A0 ` DC.W CommToolboxDispatch END FN '-------------------------------------------------|---------------- 'Page 139 FTGetProcID (name: Str255) : Integer; 'FB ProcID = FN FTGetProcID(ToolFileName$) '-------------------------------------------------|---------------- LOCAL: DIM selector LOCAL FN FTGetProcID(@ptr&) selector = _FTGetProcID ` LEA ^selector,A0 ` DC.W CommToolboxDispatch ` EXT.L D0 END FN '-------------------------------------------------|---------------- 'Page 154 FTGetRefCon (hFT: FTHandle): LONGINT; 'FB refCon& = FN FTGetRefCon(FTHndl&) '-------------------------------------------------|---------------- LOCAL:DIM selector LOCAL FN FTGetRefCon(FTHndl&) selector = _FTGetRefCon ` LEA ^selector,A0 ` DC.W CommToolboxDispatch END FN '-------------------------------------------------|---------------- 'Page 155 FTGetUserData (hFT: FTHandle): LONGINT; 'FB UserData& = FN FTGetUserData(FTHndl&) '-------------------------------------------------|---------------- LOCAL:DIM selector LOCAL FN FTGetUserData(FTHndl&) selector = _FTGetUserData ` LEA ^selector,A0 ` DC.W CommToolboxDispatch END FN '-------------------------------------------------|---------------- 'Page 155 FTGetVersion (hFT: FTHandle): Handle; 'FB vHndl& = FN FTGetVersion(FTHndl&) '-------------------------------------------------|---------------- LOCAL:DIM selector LOCAL FN FTGetVersion(FTHndl&) selector = _FTGetVersion ` LEA ^selector,A0 ` DC.W CommToolboxDispatch END FN '-------------------------------------------------|---------------- 'Page 153 FTIntlToEnglish (hFT: FTHandle; inputPtr : Ptr; ' VAR outputPtr: Ptr; language: INTEGER): OSErr; 'FB OSErr = FN FTIntlToEnglish(FTHndl&,foreign$, ' English$,language) '-------------------------------------------------|---------------- LOCAL: DIM selector,language,outputPtr&,inputPtr&,FTHndl& LOCAL FN FTIntlToEnglish(FTHndl&,@inputPtr&,@outputPtr&,language) selector = _FTIntlToEnglish ` LEA ^selector,A0 ` DC.W CommToolboxDispatch ` EXT.L D0 END FN '-------------------------------------------------|---------------- 'Page 152 FTMenu (hFT: FTHandle; menuID: INTEGER; ' item:INTEGER): BOOLEAN; 'FB bool = FN FTMenu(FTHndl&,menuID,itemID) '-------------------------------------------------|---------------- LOCAL: DIM selector,itemID,menuID,FTHndl& LOCAL FN FTMenu(FTHndl&,menuID,itemID) selector = _FTMenu ` LEA ^selector,A0 ` DC.W CommToolboxDispatch ` EXT.L D0 END FN '-------------------------------------------------|---------------- 'Page 139 FTNew (prodID: INTEGER; flags: FTFlags; ' sendProc: ProcPtr; recvProc: ProcPtr; ' readProc: procPtr; writeProc: ProcPtr; ' environsProc: procPtr; owner: Windowptr; ' refCon: LONGINT; userData: LONGINT): FTHandle; 'FB FTHndl& = FN FTNew(procID,FTFlags&,sendProc&, ' recvProc&,readProc&,writeProc&,environsProc&, ' owner&,refCon&,userData&) '-------------------------------------------------|---------------- LOCAL: DIM selector,userData&,refCon&,owner&,environsProc& DIM writeProc&,readProc&,recvProc&,sendProc&,FTFlags&,procID LOCAL FN FTNew(procID,FTFlags&,sendProc&,recvProc&,readProc&,writeProc&,environsProc&,owner&,refCon&,userData&) selector = _FTNew ` LEA ^selector,A0 ` DC.W CommToolboxDispatch END FN '-------------------------------------------------|---------------- 'Page 151 FTResume (hFT: FTHandle; resume : BOOLEAN); 'FB FN FTResume(FTHndl&,resumeBool) '-------------------------------------------------|---------------- LOCAL: DIM selector,resumeBool,FTHndl& LOCAL FN FTResume(FTHndl&,resumeBool) selector = _FTResume ` LEA ^selector,A0 ` DC.W CommToolboxDispatch END FN '-------------------------------------------------|---------------- 'Page 148 FTSetConfig (hFT: FTHandle; thePtr : Ptr): INTEGER; 'FB theErr = FN FTSetConfig(FTHndl&,thePtr&) ' thePtr& points to a null terminated C string. ' t$ = "InterCharDelay 0 InterLineDelay 0 WordWrap False" + CHR$(0) ' thePtr& = @t$ + 1 '-------------------------------------------------|---------------- LOCAL: DIM selector,thePtr&,FTHndl& LOCAL FN FTSetConfig(FTHndl&,thePtr&) selector = _FTSetConfig ` LEA ^selector,A0 ` DC.W CommToolboxDispatch ` EXT.L D0 END FN '-------------------------------------------------|---------------- 'Page 154 FTSetRefCon (hFT: FTHandle; refCon : LONGINT); 'FB FN FTSetRefCon(FTHndl&,refCon&) '-------------------------------------------------|---------------- LOCAL: DIM selector,refCon&,FTHndl& LOCAL FN FTSetRefCon(FTHndl&,refCon&) selector = _FTSetRefCon ` LEA ^selector,A0 ` DC.W CommToolboxDispatch END FN '-------------------------------------------------|---------------- 'Page 146 FTSetupCleanup (procID: INTEGER; theConfig: Ptr; ' count: INTEGER; theDialog: DialogPtr; ' VAR magicCookie: LONGINT); 'FB FN FTSetupCleanup(procID,theConfig&,count,theDialog&, ' magicCookie&) '-------------------------------------------------|---------------- LOCAL: DIM selector,magicCookie&,theDialog&,count,theConfig&,procID LOCAL FN FTSetupCleanup(procID,theConfig&,count,theDialog&,@magicCookie&) selector = _FTSetupCleanup ` LEA ^selector,A0 ` DC.W CommToolboxDispatch END FN '-------------------------------------------------|---------------- 'Page 146 FTSetupItem (procID: INTEGER; theConfig: Ptr; ' count: INTEGER; theDialog: DialogPtr&; ' VAR theItem: INTEGER; ' VAR magicCookie: LONGINT); 'FB FN FTSetupItem(procID,theConfig&,count,theDialog&, ' theItem,magicCookie&) '-------------------------------------------------|---------------- LOCAL: DIM selector,magicCookie&,theItem& DIM theDialog&,count,theConfig&,procID LOCAL FN FTSetupItem(procID,theConfig&,count,theDialog&,@theItem&,@magicCookie&) selector = _FTSetupItem ` LEA ^selector,A0 ` DC.W CommToolboxDispatch END FN '-------------------------------------------------|---------------- 'Page 147 FTSetupPostflight (procID: INTEGER); 'FB FN FTSetupPostflight(procID) '-------------------------------------------------|---------------- LOCAL: DIM selector LOCAL FN FTSetupPostflight(procID) selector = _FTSetupPostflight ` LEA ^selector,A0 ` DC.W CommToolboxDispatch END FN '-------------------------------------------------|---------------- 'Page 144 FTSetupPreflight (procID: INTEGER; VAR magicCookie): Handle; 'FB hndl& = FN FTSetupPreflight(procID,magicCookie&) '-------------------------------------------------|---------------- LOCAL: DIM selector,magicCookie&,procID LOCAL FN FTSetupPreflight(procID,@magicCookie&) selector = _FTSetupPreflight ` LEA ^selector,A0 ` DC.W CommToolboxDispatch END FN '-------------------------------------------------|---------------- 'Page 145 FTSetupSetup (procID: INTEGER; theConfig: Ptr; ' count: INTEGER; theDialog: DialogPtr&; ' VAR magicCookie: LONGINT); 'FB FN FTSetupSetup(procID,theConfig&,count,theDialog&, ' magicCookie&) '-------------------------------------------------|---------------- LOCAL: DIM selector,magicCookie& DIM theDialog&,count,theConfig&,procID LOCAL FN FTSetupSetup(procID,theConfig&,count,theDialog&,@magicCookie&) selector = _FTSetupSetup ` LEA ^selector,A0 ` DC.W CommToolboxDispatch END FN '-------------------------------------------------|---------------- 'Page 155 FTSetUserData (hFT: FTHandle; userData : LONGINT); 'FB FN FTSetUserData(FTHndl&,userData&) '-------------------------------------------------|---------------- LOCAL: DIM selector,userData&,FTHndl& LOCAL FN FTSetUserData(FTHndl&,userData&) selector = _FTSetUserData ` LEA ^selector,A0 ` DC.W CommToolboxDispatch END FN '-------------------------------------------------|---------------- 'Page 149 FTStart (hFT: FTHandle; direction: FTDirection; ' fileInfo: SFReply): FTErr; 'FB FN FTStart(FTHndl&,direction,fileInfo) ' Note: "fileInfo" is a Standard Files reply record '-------------------------------------------------|---------------- LOCAL: DIM selector,fileInfo&,direction,FTHndl& LOCAL FN FTStart(FTHndl&,direction,@fileInfo&) selector = _FTStart ` LEA ^selector,A0 ` DC.W CommToolboxDispatch ` EXT.L D0 END FN '-------------------------------------------------|---------------- 'Page 141 FTValidate(hFT: FTHandle) : BOOLEAN; 'FB bool = FN FTValidate(FTHndl&) '-------------------------------------------------|---------------- LOCAL: DIM selector,FTHndl& LOCAL FN FTValidate(FTHndl&) selector = _FTValidate ` LEA ^selector,A0 ` DC.W CommToolboxDispatch ` EXT.L D0 END FN '•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••• '•••••• TERMINAL TRANSFER MANAGER •••••••• '•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••• '-------------------------------------------------|---------------- 'Page 88 InitTM : TMErr; 'FB TMErr = FN InitTM '-------------------------------------------------|---------------- LOCAL FN InitTM selector = _InitTM ` LEA ^selector,A0 ` DC.W CommToolboxDispatch ` EXT.L D0 END FN '-------------------------------------------------|---------------- 'Page 105 TMActivate(hTerm: TermHandle; activate : BOOLEAN) 'FB FN TMActivate(TermHndl&,bool) '-------------------------------------------------|---------------- DIM selector,bool,TermHndl& LOCAL FN TMActivate(TermHndl&,bool) selector = _TMActivate ` LEA ^selector,A0 ` DC.W CommToolboxDispatch END FN '-------------------------------------------------|---------------- 'Page 102 TMAddSearch (hTerm: TermHandle; theString: Str255; ' where: Rect; searchType: TMSearchTypes ' callBack: ProcPtr): INTEGER; 'FB searchRefNum = FN TMAddSearch(TermHndl&,searchTxt$, ' t,callBackProc&) '-------------------------------------------------|---------------- LOCAL: DIM selector,callBackProc&,rect&,txtPtr&,TermHndl& LOCAL FN TMAddSearch(TermHndl&,@txtPtr&,@rect&,callBackProc&) selector = _TMAddSearch ` LEA ^selector,A0 ` DC.W CommToolboxDispatch ` EXT.L D0 END FN '-------------------------------------------------|---------------- 'Page 92 TMChoose(VAR hTerm: TermHandle; where: Point; ' idleProc: procPtr):INTEGER; 'FB rslt = FN TMChoose(TermHndl&,thePoint&,procPtr&) '-------------------------------------------------|---------------- LOCAL: DIM selector,procPtr&,pointX,pointY,TermHndl& LOCAL FN TMChoose(@TermHndl&,@thePoint&,procPtr&) ` MOVE.L ^thePoint&,A0 ` MOVE.W (A0)+,^pointX ` MOVE.W (A0),^pointY selector = _TMChoose ` LEA ^selector,A0 ` DC.W CommToolboxDispatch ` EXT.L D0 END FN '-------------------------------------------------|---------------- 'Page 100 TMClear(hTerm: TermHandle); 'FB FN TMClear(TermHndl&) '-------------------------------------------------|---------------- DIM selector LOCAL FN TMClear(TermHndl&) selector = _TMClear ` LEA ^selector,A0 ` DC.W CommToolboxDispatch END FN '-------------------------------------------------|---------------- 'Page 103 TMClearSearch (hTerm: TermHandle); 'FB FN TMClearSearch(TermHndl&) '-------------------------------------------------|---------------- LOCAL: DIM selector LOCAL FN TMClearSearch(TermHndl&) selector = _TMClearSearch ` LEA ^selector,A0 ` DC.W CommToolboxDispatch END FN '-------------------------------------------------|---------------- 'Page 106 TMClick (hTerm: TermHandle; theEvent : EventRecord); 'FB FN TMClick(TermHndl&,gWhat) '-------------------------------------------------|---------------- LOCAL: DIM selector,eventRec&,TermHndl& LOCAL FN TMClick(TermHndl&,@eventRec&) selector = _TMClick ` LEA ^selector,A0 ` DC.W CommToolboxDispatch END FN '-------------------------------------------------|---------------- 'Page 112 TMCountTermKeys (hTerm: TermHandle);INTEGER 'FB numOfSpecialkeys = FN TMCountTermKeys(TermHndl&) '-------------------------------------------------|---------------- LOCAL: DIM selector LOCAL FN TMCountTermKeys(TermHndl&) selector = _TMCountTermKeys ` LEA ^selector,A0 ` DC.W CommToolboxDispatch ` EXT.L D0 END FN '-------------------------------------------------|---------------- 'Page 91 TMDefault(VAR theConfig: Ptr; procID: INTEGER; ' allocate: BOOLEAN); 'FB FN TMDefault(config,procID,allocate) '-------------------------------------------------|---------------- LOCAL: DIM selector,allocate,procID,configPtr& LOCAL FN TMDefault(@configPtr&,procID,allocate) selector = _TMDefault ` LEA ^selector,A0 ` DC.W CommToolboxDispatch END FN '-------------------------------------------------|---------------- 'Page 101 TMDispose (hTerm: TermHandle); 'FB FN TMDispose(TermHndl&) '-------------------------------------------------|---------------- LOCAL:DIM selector LOCAL FN TMDispose(TermHndl&) selector = _TMDispose ` LEA ^selector,A0 ` DC.W CommToolboxDispatch END FN '-------------------------------------------------|---------------- 'Page 111 TMDoTermKey (hTerm: TermHandle; theKey: Str255):BOOLEAN; 'FB understood = FN TMDoTermKey(TermHndl&,thekey$) '-------------------------------------------------|---------------- LOCAL:DIM selector,keyPtr&,TermHndl& LOCAL FN TMDoTermKey(TermHndl&,@keyPtr&) selector = _TMDoTermKey ` LEA ^selector,A0 ` DC.W CommToolboxDispatch ` EXT.L D0 END FN '-------------------------------------------------|---------------- 'Page 108 TMEnglishToIntl (hTerm: TermHandle; inputPtr : Ptr; ' VAR outputPtr: Ptr; language: INTEGER): OSErr; 'FB OSErr = FN TMEnglishToIntl(TermHndl&,English$, ' foreign$,language) '-------------------------------------------------|---------------- LOCAL: DIM selector,language,outputPtr&,inputPtr&,TermHndl& LOCAL FN TMEnglishToIntl(TermHndl&,@inputPtr&,@outputPtr&,language) selector = _TMEnglishToIntl ` LEA ^selector,A0 ` DC.W CommToolboxDispatch ` EXT.L D0 END FN '-------------------------------------------------|---------------- 'Page 107 TMEvent (hTerm: TermHandle; theEvent : EventRecord); 'FB FN TMEvent(TermHndl&,gWhat) '-------------------------------------------------|---------------- LOCAL: DIM selector,eventRec&,TermHndl& LOCAL FN TMEvent(TermHndl&,@eventRec&) selector = _TMEvent ` LEA ^selector,A0 ` DC.W CommToolboxDispatch END FN '-------------------------------------------------|---------------- 'Page 98 TMGetConfig (hTerm: TermHandle): Ptr; 'FB ptr& = FN TMGetConfig(TermHndl&) '-------------------------------------------------|---------------- LOCAL: DIM selector LOCAL FN TMGetConfig(TermHndl&) selector = _TMGetConfig ` LEA ^selector,A0 ` DC.W CommToolboxDispatch END FN '-------------------------------------------------|---------------- 'Page 111 TMGetCursor(hTerm: TermHandle; cursType : TMCursorTypes) 'FB point& = FN TMGetCursor(TermHndl&,cursType) '-------------------------------------------------|---------------- DIM selector,cursType,TermHndl& LOCAL FN TMGetCursor(TermHndl&,cursType) selector = _TMGetCursor ` LEA ^selector,A0 ` DC.W CommToolboxDispatch END FN '-------------------------------------------------|---------------- 'Page 112 TMGetIndTermKey (hTerm: TermHandle; id : INTEGER ' VAR theKey: Str255); 'FB FN TMGetIndTermKey(TermHndl&,id,theKey$) '-------------------------------------------------|---------------- LOCAL: DIM selector,keyPtr&,ID,TermHndl& LOCAL FN TMGetIndTermKey(TermHndl&,ID,@keyPtr&) selector = _TMGetIndTermKey ` LEA ^selector,A0 ` DC.W CommToolboxDispatch END FN '-------------------------------------------------|---------------- 'Page 100 TMGetLine (hTerm: TermHandle; lineNo : INTEGER ' VAR theTermData: TermDataBlock); 'FB FN TMGetLine(TermHndl&,lineNo,theTermData) '-------------------------------------------------|---------------- LOCAL: DIM selector,theTermDataPtr&,lineNo,TermHndl& LOCAL FN TMGetLine(TermHndl&,lineNo,@theTermDataPtr&) selector = _TMGetLine ` LEA ^selector,A0 ` DC.W CommToolboxDispatch END FN '-------------------------------------------------|---------------- 'Page 88 TMGetProcID (name: Str255) : Integer; 'FB ProcID = FN TMGetProcID(TermToolName$) '-------------------------------------------------|---------------- LOCAL: DIM selector LOCAL FN TMGetProcID(@ptr&) selector = _TMGetProcID ` LEA ^selector,A0 ` DC.W CommToolboxDispatch ` EXT.L D0 END FN '-------------------------------------------------|---------------- 'Page 109 TMGetRefCon (hTerm: TermHandle): LONGINT; 'FB refCon& = FN TMGetRefCon(TermHndl&) '-------------------------------------------------|---------------- LOCAL:DIM selector LOCAL FN TMGetRefCon(TermHndl&) selector = _TMGetRefCon ` LEA ^selector,A0 ` DC.W CommToolboxDispatch END FN '-------------------------------------------------|---------------- 'Page 104 TMGetSelect (hTerm: TermHandle; theData: Handle; ' VAR theType: Restype): LONGINT; ' hndl& = FN NEWHANDLE(0) 'FB dataSize& = FN TMGetSelect(TermHndl&,hndl&,resTp&) '-------------------------------------------------|---------------- LOCAL:DIM selector,resTpPtr&,hndl&,TermHndl& LOCAL FN TMGetSelect(TermHndl&,hndl&,@resTpPtr&) selector = _TMGetSelect ` LEA ^selector,A0 ` DC.W CommToolboxDispatch END FN '-------------------------------------------------|---------------- 'Page 112 TMGetTermEnvirons (hTerm: TermHandle ; VAR theEnvirons: ' TermEnvironRec): TMErr; ' See pg 112 for environs record 'FB TMErr = FN TMGetTermEnvirons(TermHndl&,theEnvirons) '-------------------------------------------------|---------------- LOCAL:DIM selector,theEnvironsPtr&,TermHndl& LOCAL FN TMGetTermEnvirons(TermHndl&,@theEnvironsPtr&) selector = _TMGetTermEnvirons ` LEA ^selector,A0 ` DC.W CommToolboxDispatch ` EXT.L D0 END FN '-------------------------------------------------|---------------- 'Page 109 TMGetToolName (procID: INTEGER;VAR name: Str255); 'FB FN TMGetToolName(procID,TermToolName$) '-------------------------------------------------|---------------- LOCAL: DIM selector,ptr&,procID LOCAL FN TMGetToolName(procID,@ptr&) selector = _TMGetToolName ` LEA ^selector,A0 ` DC.W CommToolboxDispatch END FN '-------------------------------------------------|---------------- 'Page 110 TMGetTMVersion: INTEGER ; 'FB version = FN TMGetTMVersion '-------------------------------------------------|---------------- LOCAL FN TMGetTMVersion selector = _TMGetTMVersion ` LEA ^selector,A0 ` DC.W CommToolboxDispatch ` EXT.L D0 END FN '-------------------------------------------------|---------------- 'Page 110 TMGetUserData (hTerm: TermHandle): LONGINT; 'FB UserData& = FN TMGetUserData(TermHndl&) '-------------------------------------------------|---------------- LOCAL:DIM selector LOCAL FN TMGetUserData(TermHndl&) selector = _TMGetUserData ` LEA ^selector,A0 ` DC.W CommToolboxDispatch END FN '-------------------------------------------------|---------------- 'Page 110 TMGetVersion (hTerm: TermHandle): Handle; 'FB vHndl& = FN TMGetVersion(TermHndl&) '-------------------------------------------------|---------------- LOCAL:DIM selector LOCAL FN TMGetVersion(TermHndl&) selector = _TMGetVersion ` LEA ^selector,A0 ` DC.W CommToolboxDispatch END FN '-------------------------------------------------|---------------- 'Page 99 TMIdle (hTerm: TermHandle); 'FB FN TMIdle(TermHndl&) '-------------------------------------------------|---------------- LOCAL:DIM selector LOCAL FN TMIdle(TermHndl&) selector = _TMIdle ` LEA ^selector,A0 ` DC.W CommToolboxDispatch END FN '-------------------------------------------------|---------------- 'Page 108 TMIntlToEnglish (hTerm: TermHandle; inputPtr : Ptr; ' VAR outputPtr: Ptr; language: INTEGER): OSErr; 'FB OSErr = FN TMIntlToEnglish(TermHndl&,foreign$, ' English$,language) '-------------------------------------------------|---------------- LOCAL: DIM selector,language,outputPtr&,inputPtr&,TermHndl& LOCAL FN TMIntlToEnglish(TermHndl&,@inputPtr&,@outputPtr&,language) selector = _TMIntlToEnglish ` LEA ^selector,A0 ` DC.W CommToolboxDispatch ` EXT.L D0 END FN '-------------------------------------------------|---------------- 'Page 106 TMKey (hTerm: TermHandle; theEvent : EventRecord); 'FB FN TMKey(TermHndl&,gWhat) '-------------------------------------------------|---------------- LOCAL: DIM selector,eventRec&,TermHndl& LOCAL FN TMKey(TermHndl&,@eventRec&) selector = _TMKey ` LEA ^selector,A0 ` DC.W CommToolboxDispatch END FN '-------------------------------------------------|---------------- 'Page 105 TMMenu (hTerm: TermHandle; menuID: INTEGER; ' item:INTEGER): BOOLEAN; 'FB bool = FN TMMenu(TermHndl&,menuID,itemID) '-------------------------------------------------|---------------- LOCAL: DIM selector,itemID,menuID,TermHndl& LOCAL FN TMMenu(TermHndl&,menuID,itemID) selector = _TMMenu ` LEA ^selector,A0 ` DC.W CommToolboxDispatch ` EXT.L D0 END FN '-------------------------------------------------|---------------- 'Page 89 TMNew (termRect: Rect; viewRect: Rect; ' flags: TMFlags; prodID: INTEGER; owner: WindowPtr ' sendProc: ProcPtr; cacheProc: ProcPtr; ' breakProc: procPtr; clikLoop: ProcPtr; ' environsProc: procPtr; ' refCon: LONGINT; userData: LONGINT): TermHandle; 'FB TermHndl& = FN TMNew(termRect,termViewRect,TMflags& ' procID,owner&,sendProc&,cacheProc&,breakProc&, ' clickLoop&,environsProc&,refCon&,userData&) '-------------------------------------------------|---------------- LOCAL: DIM selector,userData&,refCon&,environsProc&,clickLoop& DIM breakProc&,cacheProc&,sendProc&,owner&,procID,TMFlags& DIM termViewrectPtr&,termRectPtr& LOCAL FN TMNew(@termRectPtr&,@termViewrectPtr&,TMFlags&,procID,owner&,sendProc&,cacheProc&,breakProc&,clickLoop&,environsProc&,refCon&,userData&) selector = _TMNew ` LEA ^selector,A0 ` DC.W CommToolboxDispatch END FN '-------------------------------------------------|---------------- 'Page 99 TMPaint (hTerm: TermHandle; theTermData: TermDataBlock; ' theRect: Rect); 'FB FN TMPaint(TermHndl&,theTermData,t) '-------------------------------------------------|---------------- LOCAL: DIM selector,rectPtr&,theTermDataPtr&,TermHndl& LOCAL FN TMPaint(TermHndl&,@theTermDataPtr&,@rectPtr&) selector = _TMPaint ` LEA ^selector,A0 ` DC.W CommToolboxDispatch END FN '-------------------------------------------------|---------------- 'Page 103 TMRemoveSearch (hTerm: TermHandle; refNum : LONGINT); 'FB FN TMRemoveSearch(TermHndl&,refNum&) '-------------------------------------------------|---------------- LOCAL: DIM selector,refNum&,TermHndl& LOCAL FN TMRemoveSearch(TermHndl&,refNum&) selector = _TMRemoveSearch ` LEA ^selector,A0 ` DC.W CommToolboxDispatch END FN '-------------------------------------------------|---------------- 'Page 101 TMReset (hTerm: TermHandle); 'FB FN TMReset(TermHndl&) '-------------------------------------------------|---------------- LOCAL: DIM selector LOCAL FN TMReset(TermHndl&) selector = _TMReset ` LEA ^selector,A0 ` DC.W CommToolboxDispatch END FN '-------------------------------------------------|---------------- 'Page 101 TMResize (hTerm: TermHandle;theRect: Rect); 'FB FN TMResize(TermHndl&,t) '-------------------------------------------------|---------------- LOCAL: DIM selector,rectPtr&,TermHndl& LOCAL FN TMResize(TermHndl&,@rectPtr&) selector = _TMResize ` LEA ^selector,A0 ` DC.W CommToolboxDispatch END FN '-------------------------------------------------|---------------- 'Page 105 TMResume (hTerm: TermHandle; resume : BOOLEAN); 'FB FN TMResume(TermHndl&,resumeBool) '-------------------------------------------------|---------------- LOCAL: DIM selector,resumeBool,TermHndl& LOCAL FN TMResume(TermHndl&,resumeBool) selector = _TMResume ` LEA ^selector,A0 ` DC.W CommToolboxDispatch END FN '-------------------------------------------------|---------------- 'Page 100 TMScroll (hTerm: TermHandle; dH,dV : INTEGER); 'FB FN TMScroll(TermHndl&,dH,dV) '-------------------------------------------------|---------------- LOCAL: DIM selector,dV,dH,TermHndl& LOCAL FN TMScroll(TermHndl&,dH,dV) selector = _TMScroll ` LEA ^selector,A0 ` DC.W CommToolboxDispatch END FN '-------------------------------------------------|---------------- 'Page 98 TMSetConfig (hTerm: TermHandle; thePtr : Ptr): INTEGER; 'FB theErr = FN TMSetConfig(TermHndl&,thePtr&) ' thePtr& points to a null terminated C string. ' t$ = "FontSize 9 Width 80 Cursor Underline Online True" + CHR$(0) ' thePtr& = @t$ + 1 '-------------------------------------------------|---------------- LOCAL: DIM selector,thePtr&,TermHndl& LOCAL FN TMSetConfig(TermHndl&,thePtr&) selector = _TMSetConfig ` LEA ^selector,A0 ` DC.W CommToolboxDispatch ` EXT.L D0 END FN '-------------------------------------------------|---------------- 'Page 109 TMSetRefCon (hTerm: TermHandle; refCon : LONGINT); 'FB FN TMSetRefCon(TermHndl&,refCon&) '-------------------------------------------------|---------------- LOCAL: DIM selector,refCon&,TermHndl& LOCAL FN TMSetRefCon(TermHndl&,refCon&) selector = _TMSetRefCon ` LEA ^selector,A0 ` DC.W CommToolboxDispatch END FN '-------------------------------------------------|---------------- 'Page 104 TMSetSelection (hTerm: TermHandle; theSelection:TMSelection ' selType: TMSelTypes); 'FB FN TMSetSelection(TermHndl&,theSelection,selType) '-------------------------------------------------|---------------- LOCAL: DIM selector,theSelectionPtr&,selType,TermHndl& LOCAL FN TMSetSelection(TermHndl&,@theSelectionPtr&,selType) selector = _TMSetSelection ` LEA ^selector,A0 ` DC.W CommToolboxDispatch END FN '-------------------------------------------------|---------------- 'Page 104 TMSetupCleanup (procID: INTEGER; theConfig: Ptr; ' count: INTEGER; theDialog: DialogPtr&; ' VAR magicCookie: LONGINT); 'FB FN TMSetupCleanup(procID,theConfig&,count,theDialog&,magicCookie&) '-------------------------------------------------|---------------- LOCAL: DIM selector,magicCookie&,theDialog&,count,theConfig&,procID DIM toRead&,buffer&,hConn& LOCAL FN TMSetupCleanup(procID,theConfig&,count,theDialog&,@magicCookie&) selector = _TMSetupCleanup ` LEA ^selector,A0 ` DC.W CommToolboxDispatch END FN '-------------------------------------------------|---------------- 'Page 95 TMSetupfilter(procID: INTEGER; theConfig: Ptr; ' count: INTEGER; theDialog: DialogPtr&; ' VAR theEvent: EventRecord; VAR theItem: INTEGER ' VAR magicCookie: LONGINT): BOOLEAN; 'FB Bool = FN TMSetupfilter(procID,theConfig&,count,theDialog&, ' EventRecord&,theItem,magicCookie&) '-------------------------------------------------|---------------- LOCAL: DIM selector,magicCookie&,theItem&,EventRecord& DIM theDialog&,count,theConfig&,procID LOCAL FN TMSetupfilter(procID,theConfig&,count,theDialog&,EventRecord&,@theItem&,@magicCookie&) selector = _TMSetupfilter ` LEA ^selector,A0 ` DC.W CommToolboxDispatch ` EXT.L D0 END FN '-------------------------------------------------|---------------- 'Page 96 TMSetupItem (procID: INTEGER; theConfig: Ptr; ' count: INTEGER; theDialog: DialogPtr&; ' VAR theItem: INTEGER; ' VAR magicCookie: LONGINT); 'FB FN TMSetupItem(procID,theConfig&,count,theDialog&, ' theItem,magicCookie&) '-------------------------------------------------|---------------- LOCAL: DIM selector,magicCookie&,theItem& DIM theDialog&,count,theConfig&,procID LOCAL FN TMSetupItem(procID,theConfig&,count,theDialog&,@theItem&,@magicCookie&) selector = _TMSetupItem ` LEA ^selector,A0 ` DC.W CommToolboxDispatch END FN '-------------------------------------------------|---------------- 'Page 97 TMSetupPostflight (procID: INTEGER); 'FB FN TMSetupPostflight(procID) '-------------------------------------------------|---------------- LOCAL: DIM selector LOCAL FN TMSetupPostflight(procID) selector = _TMSetupPostflight ` LEA ^selector,A0 ` DC.W CommToolboxDispatch END FN '-------------------------------------------------|---------------- 'Page 94 TMSetupPreflight (procID: INTEGER; VAR magicCookie): Handle; 'FB hndl& = FN TMSetupPreflight(procID,magicCookie&) '-------------------------------------------------|---------------- LOCAL: DIM selector,magicCookie&,procID LOCAL FN TMSetupPreflight(procID,@magicCookie&) selector = _TMSetupPreflight ` LEA ^selector,A0 ` DC.W CommToolboxDispatch END FN '-------------------------------------------------|---------------- 'Page 95 TMSetupSetup (procID: INTEGER; theConfig: Ptr; ' count: INTEGER; theDialog: DialogPtr&; ' VAR magicCookie: LONGINT); 'FB FN TMSetupSetup(procID,theConfig&,count,theDialog&, ' magicCookie&) '-------------------------------------------------|---------------- LOCAL: DIM selector,magicCookie& DIM theDialog&,count,theConfig&,procID LOCAL FN TMSetupSetup(procID,theConfig&,count,theDialog&,@magicCookie&) selector = _TMSetupSetup ` LEA ^selector,A0 ` DC.W CommToolboxDispatch END FN '-------------------------------------------------|---------------- 'Page 110 TMSetUserData (hterm: TermHandle; userData : LONGINT); 'FB FN TMSetUserData(TermHndl&,userData&) '-------------------------------------------------|---------------- LOCAL: DIM selector,userData&,TermHndl& LOCAL FN TMSetUserData(TermHndl&,userData&) selector = _TMSetUserData ` LEA ^selector,A0 ` DC.W CommToolboxDispatch END FN '-------------------------------------------------|---------------- 'Page 99 TMStream (hterm: TermHandle; theBuffer: Ptr; ' theLength: LONGINT; flags: CMFlags): LONGINT; 'FB bytesProcessed& = FN TMStream(TermHndl&,buffPtr&, ' theLength&,flags&) '-------------------------------------------------|---------------- LOCAL: DIM selector,flags&,theLength&,buffPtr&,TermHndl& LOCAL FN TMStream(TermHndl&,buffPtr&,theLength&,flags&) selector = _TMStream ` LEA ^selector,A0 ` DC.W CommToolboxDispatch END FN '-------------------------------------------------|---------------- 'Page 106 TMUpdate (hTerm: TermHandle; visRgn : RgnHandle); 'FB FN TMUpdate(TermHndl&,visRgn&) '-------------------------------------------------|---------------- LOCAL: DIM selector,visRgn&,TermHndl& LOCAL FN TMUpdate(TermHndl&,visRgn&) selector = _TMUpdate ` LEA ^selector,A0 ` DC.W CommToolboxDispatch END FN '-------------------------------------------------|---------------- 'Page 91 TMValidate(hTerm: TermHandle) : BOOLEAN; 'FB bool = FN TMValidate(TermHndl&) '-------------------------------------------------|---------------- LOCAL: DIM selector,TermHndl& LOCAL FN TMValidate(TermHndl&) selector = _TMValidate ` LEA ^selector,A0 ` DC.W CommToolboxDispatch ` EXT.L D0 END FN '•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••• '•••••• COMMUNICATIONS RESOURCE MANAGER •••••••• '•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••• '-------------------------------------------------|---------------- 'Page 177 CRMGet1IndResource(theType: ResType; index: INTEGER): ' handle; 'FB hndl& = FN CRMGet1IndResource(theType&,theIndex) '-------------------------------------------------|---------------- LOCAL: DIM selector,theIndex,theType& LOCAL FN CRMGet1IndResource(theType&,theIndex) selector = _CRMGet1IndResource ` LEA ^selector,A0 ` DC.W CommToolboxDispatch END FN '-------------------------------------------------|---------------- 'Page 178 CRMGet1NamedResource(theType: ResType; name: Str255): ' handle; 'FB hndl& = FN CRMGet1NamedResource(theType&,theName$) '-------------------------------------------------|---------------- LOCAL: DIM selector,namePtr&,theType& LOCAL FN CRMGet1NamedResource(theType&,@namePtr&) selector = _CRMGet1NamedResource ` LEA ^selector,A0 ` DC.W CommToolboxDispatch END FN '-------------------------------------------------|---------------- 'Page 177 CRMGet1Resource(theType: ResType; theID: INTEGER): ' handle; 'FB hndl& = FN CRMGet1Resource(theType&,theID) '-------------------------------------------------|---------------- LOCAL: DIM selector,theID,theType& LOCAL FN CRMGet1Resource(theType&,theID) selector = _CRMGet1Resource ` LEA ^selector,A0 ` DC.W CommToolboxDispatch END FN '-------------------------------------------------|---------------- 'Page 176 CRMGetCRMVersion: INTEGER ; 'FB version = FN CRMGetCRMVersion '-------------------------------------------------|---------------- LOCAL FN CRMGetCRMVersion selector = _CRMGetCRMVersion ` LEA ^selector,A0 ` DC.W CommToolboxDispatch ` EXT.L D0 END FN '-------------------------------------------------|---------------- 'Page 176 CRMGetHeader: QHdrPtr ; 'FB QHdrPtr& = FN CRMGetHeader '-------------------------------------------------|---------------- LOCAL FN CRMGetHeader selector = _CRMGetHeader ` LEA ^selector,A0 ` DC.W CommToolboxDispatch END FN '-------------------------------------------------|---------------- 'Page 178 CRMGetindex(theHandle: Handle) : LONGINT; 'FB useCount& = FN CRMGetindex(theHandle&) '-------------------------------------------------|---------------- LOCAL: DIM selector LOCAL FN CRMGetindex(theHandle&) selector = _CRMGetindex ` LEA ^selector,A0 ` DC.W CommToolboxDispatch END FN '-------------------------------------------------|---------------- 'Page 177 CRMGetIndResource(theType: ResType; index: INTEGER): ' Handle; 'FB hndl& = FN CRMGetIndResource(theType&,indx) '-------------------------------------------------|---------------- LOCAL: DIM selector,indx,theType& LOCAL FN CRMGetIndResource(theType&,theID) selector = _CRMGetIndResource ` LEA ^selector,A0 ` DC.W CommToolboxDispatch END FN '-------------------------------------------------|---------------- 'Page 179 CRMGetIndToolName (bundleType : OSType ' index: INTEGER;VAR NAME: Str255) : OSErr; 'FB OSErr = FN CRMGetIndToolName(bundleType&,indx,ToolName$) '-------------------------------------------------|---------------- LOCAL: DIM selector,ptr&,indx,bundleType& LOCAL FN CRMGetIndToolName(bundleType&,indx,@ptr&) selector = _CRMGetIndToolName ` LEA ^selector,A0 ` DC.W CommToolboxDispatch ` EXT.L D0 END FN '-------------------------------------------------|---------------- 'Page 178 CRMGetNamedResource(theType: ResType; name: Str255): ' handle; 'FB hndl& = FN CRMGetNamedResource(theType&,theName$) '-------------------------------------------------|---------------- LOCAL: DIM selector,namePtr&,theType& LOCAL FN CRMGetNamedResource(theType&,@namePtr&) selector = _CRMGetNamedResource ` LEA ^selector,A0 ` DC.W CommToolboxDispatch END FN '-------------------------------------------------|---------------- 'Page 177 CRMGetResource(theType: ResType; theID: INTEGER): ' handle; 'FB hndl& = FN CRMGetResource(theType&,theID) '-------------------------------------------------|---------------- LOCAL: DIM selector,theID,theType& LOCAL FN CRMGetResource(theType&,theID) selector = _CRMGetResource ` LEA ^selector,A0 ` DC.W CommToolboxDispatch END FN '-------------------------------------------------|---------------- 'Page 174 CRMInstall(crmReqPtr : QElemPtr); 'FB FN CRMInstall(crmReqPtr&) '-------------------------------------------------|---------------- LOCAL: DIM selector LOCAL FN CRMInstall(crmReqPtr&) selector = _CRMInstall ` LEA ^selector,A0 ` DC.W CommToolboxDispatch END FN '-------------------------------------------------|---------------- 'Page 178 CRMReleaseResource(theHandle : Handle); 'FB FN CRMReleaseResource(theHandle&) '-------------------------------------------------|---------------- LOCAL: DIM selector LOCAL FN CRMReleaseResource(theHandle&) selector = _CRMReleaseResource ` LEA ^selector,A0 ` DC.W CommToolboxDispatch END FN '-------------------------------------------------|---------------- 'Page 175 CRMRemove(crmReqPtr : QElemPtr):OSErr; 'FB OSErr = FN CRMRemove(crmReqPtr&) '-------------------------------------------------|---------------- LOCAL: DIM selector LOCAL FN CRMRemove(crmReqPtr&) selector = _CRMRemove ` LEA ^selector,A0 ` DC.W CommToolboxDispatch ` EXT.L D0 END FN '-------------------------------------------------|---------------- 'Page 181 CRMLocalToRealID(bundleType: ResType; toolID: INTEGER ' theKind: ResType; localID: INTEGER):INTEGER; 'FB realID = FN CRMLocalToRealID(bndlType&,toolID,resType&,ID) '-------------------------------------------------|---------------- LOCAL: DIM selector,ID,resType&,toolID,bndlType& LOCAL FN CRMLocalToRealID(bndlType&,toolID,resType&,ID) selector = _CRMLocalToRealID ` LEA ^selector,A0 ` DC.W CommToolboxDispatch ` EXT.L D0 END FN '-------------------------------------------------|---------------- 'Page 180 CRMRealToLocalID(bundleType: ResType; toolID: INTEGER ' theKind: ResType; realID: INTEGER):INTEGER; 'FB localID = FN CRMRealToLocalID(bndlType&,toolID,resType&,ID) '-------------------------------------------------|---------------- LOCAL: DIM selector,ID,resType&,toolID,bndlType& LOCAL FN CRMRealToLocalID(bndlType&,toolID,resType&,ID) selector = _CRMRealToLocalID ` LEA ^selector,A0 ` DC.W CommToolboxDispatch ` EXT.L D0 END FN '-------------------------------------------------|---------------- 'Page 174 InitCRM: CRMError ; 'FB CRMError = FN InitCRM '-------------------------------------------------|---------------- LOCAL FN InitCRM selector = _InitCRM ` LEA ^selector,A0 ` DC.W CommToolboxDispatch ` EXT.L D0 END FN "CTB End"